home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 26 / 3 / DISK2635.ZIP / BAR39.ZIP / PBWINDOW.INC < prev    next >
Text File  |  1990-03-09  |  3KB  |  74 lines
  1. 'This $Include file is used with PBWindow.Pbu to load Windows for use
  2. 'with PowerBasic. Routined in this $include, and in the Unit, PWindow.PBU
  3. 'are (c) 1987, 1988, 1989, 1990 Barry Erick All Rights Reserved.
  4.  
  5.  
  6. ' The declares are not necessary and are for your information.
  7. DECLARE FUNCTION GetAttribute%(Integer,Integer)
  8. DECLARE SUB Getforandback(Integer,integer,integer)
  9. DECLARE SUB Prtbox(Integer,Integer,STRING)
  10. DECLARE SUB WritVidP()
  11. DECLARE SUB Rackett()
  12. DECLARE SUB RemoveBox()
  13. DECLARE SUB BoxTitle(Integer,STRING,Integer,Integer)
  14. DECLARE SUB MakeBox(Integer,Integer,Integer,Integer,Integer,Integer,_
  15.             Integer,Integer,Integer,Integer,Integer)
  16. DECLARE SUB ZoomBox(Integer,Integer,Integer,Integer,Integer,Integer,_
  17.             Integer,Integer,Integer,Integer,Integer)
  18. DECLARE SUB Boxscroll(Integer,Integer,Integer)
  19. DECLARE SUB CtrBox(Integer,STRING)
  20. DECLARE SUB CtrAllBox(Integer,Integer,STRING)
  21. DECLARE SUB PrtEol(Integer,Integer)
  22. DECLARE SUB PrtEolBox(Integer,Integer,String)
  23. DECLARE SUB NewBoxColor(Integer,Integer)
  24. DECLARE SUB PrtAttrBox(INTEGER,Integer,String,Integer,Integer)
  25. DECLARE SUB BuildMenu(Integer,Integer,Integer,Integer,_
  26.         Integer,Integer,Integer,Integer,Integer,STRING ARRAY,Integer,_
  27.         Integer)
  28. DECLARE SUB ClearBox(Integer,Integer)
  29. DECLARE SUB Recolor(Integer,Integer,Integer,Integer)
  30. DECLARE SUB WriteScreenArea(Integer,Integer,Integer,Integer,String,String)
  31. DECLARE SUB PBWindowInit()
  32. DECLARE SUB SaveScreenArea(Integer,Integer,Integer,_
  33.         Integer,String,String)
  34.  
  35. PUBLIC Max.Window%,AutoBuildTime%   'max num of windows, automatic time
  36. PUBLIC Wpt%  'current window pointer
  37. PUBLIC PBWr%(),PBWc%(),PBWh%(),PBWw%() 'row,colum, height, width
  38. PUBLIC Shadows%() 'type of shadow for each (wpt%)
  39. PUBLIC noise%(),boxkinw%() 'is noise active and type of box for each wpt%
  40. PUBLIC vert$()     ' for parsing words for title
  41. PUBLIC attrs%()    ' each wpt% attribute
  42. PUBLIC boxborderattrs%()  'each wpt border attribute
  43. PUBLIC mlist$()    'names of %MaxMenuList
  44. PUBLIC NoNoise%    'True = do not make noise
  45. PUBLIC mbc%        ' last windows background color
  46. PUBLIC mfc%       ' last windows foreground color
  47. PUBLIC mbfc%,mbbc% ' last windows border foreground and background color
  48. PUBLIC fc%,bc%,bfc%,bbc%
  49. PUBLIC Backc%,Forec%
  50. PUBLIC ScreenSegment%,RetraceMode%  'users screen segment and snow check.
  51. PUBLIC IsColr%,VidMode%
  52. PUBLIC Bar3or4Off%, Bar0to2Off%
  53. PUBLIC UnderDevelopment%
  54.  
  55.  
  56. %MaxmenuList = 20 ' DO NOT CHANGE, It is 20 in the .PBU
  57.           ' and this is for the user's program and the two
  58.           'must match. This MAY change in future versions
  59. Bar3or4Off% = 0   'default values
  60. Bar0to2Off% = 3   'see doc file
  61. UnderDevelopment% = 0  'this can be changed in your program while
  62.                'you are developing your program
  63.                'DO NOT CHANGE IT HERE, but add it to
  64.                'your program if you want to check for
  65.                'parameter errors in makebox. This should
  66.                'be after the $Include statement in your
  67.                'program. When development is finished,
  68.                'either remove the statement you added,
  69.                'or make it %False. To make it work, use
  70.                ' UnderDevelopment% = %True in the program
  71.                ' or UnderDevelopment = -1
  72. $LINK "PBWindow.pbu"
  73. CALL PbWindowInit   'call the initialization routine
  74.